home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / SHIFTING EXERCISE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  561b  |  13 lines
  1. 5  REM  REQUIRES BLOCK ROUTINES $911A AND BLOCK SHAPE #144
  2. 10  HGR : CALL 37799: POKE 251,144
  3. 20  POKE 252,10: POKE 253,21: POKE 254,2: POKE 255,0: CALL 37679
  4. 30  CALL 37298: REM  INCREMENT HR-ADD EMPTY BYTE COLUMN RIGHT
  5. 50  FOR X = 0 TO 35
  6. 60  FOR Y = 1 TO 7: CALL 37390: NEXT : REM  SHIFT THROUGH 1 BYTE/RIGHT
  7. 70  CALL 37296: REM  INCREMENT HR/HL
  8. 80  NEXT : CALL 37281: REM  SHIFT EMPTY COLUMN AHEAD/LEFT
  9. 100  FOR X = 0 TO 35
  10. 110  FOR Y = 1 TO 7: CALL 37301: NEXT : REM  SHIFT THROUGH 1 BYTE/LEFT
  11. 120  CALL 37281: REM  DECREMENT HR/HL
  12. 130  NEXT X
  13. 140  GOTO 50